home *** CD-ROM | disk | FTP | other *** search
/ Aminet 40 / Aminet 40 (2000)(Schatztruhe)[!][Dec 2000].iso / Aminet / misc / emu / ATUtilities.lha / ATUtilities / BASIC / ACONTROL.BAS < prev    next >
BASIC Source File  |  2000-09-26  |  2KB  |  102 lines
  1. $STRING 1
  2. $INCLUDE "GEMDOS.INC"
  3.  
  4. call CreateScreen
  5.  
  6. ende=0
  7. while ende=0
  8.  call MouseDown
  9.  if mouse.button<>0 then call MouseHandler
  10.  
  11.  if gad.id<>-1 then
  12.   select case gad.num
  13.    case 100
  14.     call MenuHandler(6,220,Feld1$(),12)
  15.     select case menu.num
  16.      case 0
  17.       call LoadApp("install.exe")
  18.      case 6
  19.       call LoadApp("pc-fileman.exe")
  20.      case 9
  21.       call GetInfo
  22.      case 11
  23.       ende=1
  24.     end select
  25.    case 200
  26.     call MenuHandler(20,250,Feld2$(),4)
  27.     select case menu.num
  28.      case 0
  29.       call LoadApp("prefs.exe farben")
  30.      case 1
  31.       call LoadApp("prefs.exe verzeichnisse")
  32.      case 2
  33.       call LoadApp("prefs.exe maus")
  34.      case 3
  35.       call LoadApp("prefs.exe signalton")
  36.     end select
  37.    case 1001
  38.     call LoadApp("install.exe")
  39.    case 1004
  40.     shell "update.exe"
  41.    case 2002
  42.     call LoadApp("pc-fileman.exe")
  43.    case 33333
  44.     ende=1
  45.   end select
  46.  end if
  47.  
  48.  gad.num=-1
  49.  menu.num=-1
  50. wend
  51.  
  52. call CleanUp
  53. cls
  54. print "AControl - Version 1.0"
  55. end
  56.  
  57. sub CreateScreen shared
  58. call InitScreen(20,"AControl")
  59.  
  60. call MenuGadget(6,"Datei",100)
  61. call MenuGadget(20,"Einstellungen",200)
  62.  
  63. dim Feld1$(20)
  64. dim Feld2$(8)
  65.  
  66. Feld1$(0)="Disketten installieren"
  67. Feld1$(1)="-"
  68. Feld1$(2)="Kopieren Amiga zu PC"
  69. Feld1$(3)="Kopieren PC zu Amiga"
  70. Feld1$(4)="-"
  71. Feld1$(5)="Amiga-Dateimanager"
  72. Feld1$(6)="PC-Dateimanager"
  73. Feld1$(7)="VESA-Slideshow"
  74. Feld1$(8)="-"
  75. Feld1$(9)="Information"
  76. Feld1$(10)="-"
  77. Feld1$(11)="Programm beenden"
  78.  
  79. Feld2$(0)="Farben"
  80. Feld2$(1)="Verzeichnisse"
  81. Feld2$(2)="Mausparameter"
  82. Feld2$(3)="Signalton"
  83.  
  84. call BoolGadget(5,7,30,1,"Disketten installieren",1001)
  85. call BoolGadget(5,11,30,1,"Kopieren Amiga zum PC",1002)
  86. call BoolGadget(5,13,30,1,"Kopieren PC zu Amiga",1003)
  87. call BoolGadget(5,17,30,1,"Update-CMD",1004)
  88.  
  89. call BoolGadget(45,7,30,1,"Amiga-Dateimanager",2001)
  90. call BoolGadget(45,9,30,1,"PC-Dateimanager",2002)
  91.  
  92. call BoolGadget(45,15,30,1,"VESA-Slideshow",2003)
  93.  
  94. call BoolGadget(5,26,30,1,"AControl beenden",33333)
  95.  
  96. call MouseOn
  97. end sub
  98.  
  99. sub GetInfo shared
  100.  call InformationBox("AControl - Version 1.0","Copyright (C) 1994 by","Thomas Dreibholz","All rights reserved.")
  101. end sub
  102.